function para_lines = findParaLine(lines,nOrient)
para_lines =[];
n_line = size(lines,1);
for i_line = 1:n_line-1
	for j_line = i_line+1:n_line
	if abs(lines(i_line,1)-lines(j_line,1))<=1
		para_lines =[para_lines; lines(i_line,:)];
		para_lines =[para_lines; lines(j_line,:)];
	end
	end
end

end
